BBS in a Box 12/BBS in a box XII-2.iso/Files II/Hyper/U-Z/Volume⁄GetVOl.sit/Volume•Sound XCMD/Volume•Sound XCMD/card_2171.txt

Text File | 1989-05-13 | 9.1 KB | 348 lines

-- card: 2171 from stack: in
-- bmap block id: 5757
-- flags: 4000
-- background id: 2507
-- name: Install
----- HyperTalk script -----
on mouseUp
  hide card field "info"
end mouseUp

on openCard
  hide card field "info"
end openCard


-- part 1 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=118 top=28 right=55 bottom=425
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: All Info


-- part 2 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=16 top=16 right=64 bottom=73
-- title width / last selected line: 0
-- icon id / first selected line: 12281 / 12281
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Questions !
----- HyperTalk script -----
on mouseUp
  show card field "info"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=209 top=284 right=331 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 32650 / 32650
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  Speak "Next"
  visual effect scroll left Fast
  go to card id 3648
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=72 top=89 right=158 bottom=211
-- title width / last selected line: 0
-- icon id / first selected line: 12041 / 12041
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install Volume XCMD
----- HyperTalk script -----
on mouseUp
  -- ••
  -- •• ResCopy XCMD and FileName
  -- ••  © Steve Maller Apple Computer™
  -- ••  Thanks ! Steve Great Stuff ...
  put the long name of this stack into sourceStack
  delete first word of sourceStack
  delete first character of sourceStack
  delete last character of sourceStack
  Put "Please Select..HyperCard Stack to Install Volume XCMD ?" into the message box
  get fileName("STAK")
  if it is empty then
    play harpsichord "ee c"
    hide Message Box
    exit mouseUp
  end if
  put it into destStack
  Put "Please Wait ....Installing in HyperCard Stack" into the message box
  if sourceStack<>destStack then
    set lockscreen to true
    set lockmessages to true
    ResCopy sourceStack,destStack,"XCMD","Volume"
    get the result
    -- here is where you would copy more resources.
    set lockmessages to false
    set lockscreen to false
    if first char of it is "E" then
      -- you could put better error handling here
      Play Oops
      Answer "Sorry !....Error on Installing Volume XCMD" With "Darn !"
      Hide Message box
      -- put it into the message box
    else
      Answer " Done with Volume XCMD Install...... " with "You Bet !"
      Hide Message box
    end if
  end if
end mouseUp




-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=418 top=238 right=311 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Code
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  set the lockScreen to true
  Show card Field code
  Show card Field Other
  Show button id 19
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=271 top=90 right=159 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 12041 / 12041
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install  GetSndVol XFCN
----- HyperTalk script -----
on mouseUp
  -- ••
  -- •• ResCopy XCMD and FileName
  -- ••  © Steve Maller Apple Computer™
  -- ••  Thanks ! Steve Great Stuff ...
  put the long name of this stack into sourceStack
  delete first word of sourceStack
  delete first character of sourceStack
  delete last character of sourceStack
  Put "Please Select..HyperCard Stack to Install Getsndvol XFCN ?" into the message box
  get fileName("STAK")
  if it is empty then
    play harpsichord "ee c"
    hide Message Box
    exit mouseUp
  end if
  put it into destStack
  Put "Please Wait ....Installing in HyperCard Stack" into the message box
  if sourceStack<>destStack then
    set lockscreen to true
    set lockmessages to true
    ResCopy sourceStack,destStack,"XFCN","Getsndvol"
    get the result
    -- here is where you would copy more resources.
    set lockmessages to false
    set lockscreen to false
    if first char of it is "E" then
      -- you could put better error handling here
      Play Oops
      Answer "Sorry !....Error on Installing Getsndvol XFCN" With "Darn !"
      Hide Message box
      -- put it into the message box
    else
      Answer " Done with Getsndvol XFCN Install...... " with "You Bet !"
      Hide Message box
    end if
  end if
end mouseUp




-- part 14 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=181 top=175 right=244 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 12041 / 12041
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install  Speak XCMD
----- HyperTalk script -----
on mouseUp
  Speak "Install Speak XCMD in Your Stack"
  -- ••
  -- •• ResCopy XCMD and FileName
  -- ••  © Steve Maller Apple Computer™
  -- ••  Thanks ! Steve Great Stuff ...
  put the long name of this stack into sourceStack
  delete first word of sourceStack
  delete first character of sourceStack
  delete last character of sourceStack
  Put "Please Select..HyperCard Stack to Install Speak XCMD ?" into the message box
  get fileName("STAK")
  if it is empty then
    play harpsichord "ee c"
    hide Message Box
    exit mouseUp
  end if
  put it into destStack
  Put "Please Wait ....Installing in HyperCard Stack" into the message box
  if sourceStack<>destStack then
    set lockscreen to true
    set lockmessages to true
    ResCopy sourceStack,destStack,"XCMD","Speak"
    get the result
    -- here is where you would copy more resources.
    set lockmessages to false
    set lockscreen to false
    if first char of it is "E" then
      -- you could put better error handling here
      Play Oops
      Answer "Sorry !....Error on Installing Speak XCMD " With "Darn !"
      Hide Message box
      -- put it into the message box
    else
      Answer " Done with Speak XCMD Install...... " with "You Bet !"
      Hide Message box
    end if
  end if
end mouseUp




-- part 15 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=49 top=68 right=334 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: info
----- HyperTalk script -----
on mouseUp
  hide card field "info"
end mouseUp


-- part 17 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=88 top=75 right=258 bottom=436
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Other


-- part 18 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=103 top=91 right=229 bottom=422
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Code


-- part 19 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=324 top=233 right=253 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Done
----- HyperTalk script -----
On MouseUp
  set lockscreen to true
  Hide card Field code
  Hide card Field Other
  Hide button id 19
End MouseUp



-- part contents for card part 1
----- text -----
Install Volume, GetSndVol, Speak XCMD

-- part contents for card part 15
----- text -----
   To use this function within your own stacks, you must first install it into either your stack or your version of HyperCard. If you give this stack you are creating to others, i recommend that you install the routines into the stack itself.

   You can use ResEdit to copy the Volume resources into your stack or you can use the resource copier built-in to this stack. To use the built-in copier, just select the button on this card and then select the stack where you want to install these resources.

     This stack and XCMD's is Copyrighted. If you use this XCMD's in any stack, you must put my copyright notice in the credits section of your stack. There are no monetary fees required for the use of these XCMD's. You need only give me some credit.    Thanks ...    Kenneth “Skip” Rockey 1989


-- part contents for card part 18
----- text -----

                 “ C ”  and  “ Pascal ”  Code

   Send  A Diskette and $6.00 and I will return you  all the source CODE , Think Tech. Inc., XCMD Glue “ C ”  and “ Pascal ” Programs.
                   Now that's A Deal ... !